home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 26 / 64er_Magazin_Sonderheft_26_19xx_Markt__Technik_de_Side_A.d64 / testbild 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.1 KB  |  152 lines
  1. 1 rem *********************************
  2. 2 rem *       Dxbildgenerator       *
  3. 3 rem *********************************
  4. 4 rem *         dieter laues          *
  5. 5 rem *        vowinkelstr. 1         *
  6. 6 rem *       4030 ratingen 1         *
  7. 7 rem *********************************
  8. 8 rem
  9. 9 rem
  10. 20 l=8:s=54272:rem synthesizer
  11. 25 DG:D 0,3:rem grundzustand
  12. 30 print"[147]"
  13. 35 print"1 - rot"
  14. 40 print"2 - gruen"
  15. 45 print"3 - blau":print
  16. 50 print"4 - gitter":print
  17. 55 print"5 - farbbalken":print
  18. 60 print"6 - multiburst":print
  19. 65 print"7 - 50hz-sprung":print
  20. 70 print"8 - 2t-impuls":print
  21. 75 print"9 - farbtestbild":print:print
  22. 80 print"----------------------------"
  23. 85 print"f1   pegelton       1000 hz"
  24. 90 print"f3   zweiton-kennung 274 hz"
  25. 95 print"f5   stereo-kennung  117 hz"
  26. 100 get a$:if a$="" then 100
  27. 105 a=val (a$):if a<1 or a>9 then 100
  28. 110 on a gosub 295,300,305,315,330,370,410,440,455
  29. 115 goto 25
  30. 120 rem *******************************
  31. 125 rem *        unterprogramme       *
  32. 130 rem *******************************
  33. 135 rem --- vertikale Dyien ---
  34. 140 for n=a to b step c
  35. 145 for m=0 to d
  36. 150 D n+m,0,n+m,185,1:next m:next n
  37. 155 DO x,190,a$,1,0,8:return
  38. 160 for n=a to b step c:for m=0 to d
  39. 165 D n+m,112,n+m,127,1:nextm:nextn
  40. 170 return
  41. 175 rem --- raster ---
  42. 180 D 1,0:rem grafik einschalten
  43. 185 for n=8 to 320 step 20
  44. 190 D n,0,n,199,1:next
  45. 195 for n=8 to 199 step 20
  46. 200 D 0,n,319,n,1:next
  47. 205 return
  48. 210 rem --- farbflaeche ---
  49. 215 print"[147]":D a,a
  50. 220 goto 230
  51. 225 rem --- tasten abfragen ---
  52. 230 get a$:if a$="" then 230
  53. 235 if asc(a$)>140 or asc(a$)<133 then return
  54. 240 if asc(a$)=133 then hi=66:lo=140:gosub 275
  55. 245 if asc(a$)=134 then hi=18:lo=60 :gosub 275
  56. 250 if asc(a$)=135 then hi=7 :lo=200:gosub 275
  57. 255 if asc(a$)=136 then l=l+1:if l>15 then l=15
  58. 260 if asc(a$)=140 then l=l-1:if l<0 then l=0
  59. 265 DQ l:goto 230:rem lautstaerke
  60. 270 rem --- toene ---
  61. 275 poke s+7,lo:poke s+8,hi:poke s+13,240:rem frequenz,wellenform
  62. 280 if e=0 then e=1:pokes+11,17:return
  63. 285 if e=1 then e=0:poke s+11,0:return
  64. 290 rem ******* grundfarben **********
  65. 295 a=2:goto 215:rem D
  66. 300 a=5:goto 215:rem gruen
  67. 305 a=6:goto 215:rem blau
  68. 310 rem ********** gitter ************
  69. 315 gosub 180:rem raster zeichnen
  70. 320 goto 230
  71. 325 rem ******** farbbalken **********
  72. 330 D 15,0:rem rahmen, hintergrund
  73. 335 print"[147]     [158]     [159]          [156]               [144]    "
  74. 340 for n=1 to 23
  75. 345 print"     [158]     [159]          [156]               [144]    "
  76. 350 next
  77. 355 print"     [158]     [159]          [156]               [144]    [145]"
  78. 360 goto 230
  79. 365 rem ******* Dburst **********
  80. 370 D 1,0
  81. 375 a=0  :b=70 :c=16:d=7:x=5  :a$="0,5 mhz":gosub 140
  82. 380 a=76 :b=128:c=8 :d=3:x=80 :a$="1 mhz":gosub 140
  83. 385 a=132:b=192:c=6 :d=2:x=135:a$="1,3 mhz":gosub 140
  84. 390 a=198:b=256:c=4 :d=1:x=205:a$="2 mhz":gosub 140
  85. 395 a=258:b=318:c=2 :d=0:x=265:a$="4 mhz":gosub 140
  86. 400 goto 230
  87. 405 rem ******* 50hz-sprung **********
  88. 410 D 0,0:print"[147]"
  89. 415 for n=1 to 15
  90. 420 print"                                       [146][144]"
  91. 425 next
  92. 430 goto 230
  93. 435 rem ******* 2t-impuls ***********
  94. 440 D 1,0:D 160,0,160,199,1
  95. 445 goto 230
  96. 450 rem ****** Dxbild *************
  97. 455 D 1,0:rem grafik einschalten
  98. 460 rem ----- aeusseres raster ------
  99. 465 for n=8 to 60 step 20
  100. 470 D n,0,n,199,1:next
  101. 475 for n=69 to 260 step 20
  102. 480 D n,0,n,24,1:D n,175,n,199,1:next
  103. 485 for n=270 to 320 step 20
  104. 490 D n,0,n,199,1:next
  105. 495 D 0,8,319,8,1
  106. 500 D 0,188,319,188,1
  107. 505 for n=28 to 168 step 20
  108. 510 D 0,n,63,n,1:D 255,n,319,n,1:next
  109. 515 rem ----- innerer rahmen --------
  110. 520 for n=63 to 251 step 24
  111. 525 D n,24,24,40,1:next
  112. 530 for n=63 to 190 step 40
  113. 535 D n,64,40,32,1:next
  114. 540 D 224,64,31,48,1
  115. 545 D 63,96,32,16,1
  116. 550 D 96,96,127,16,1
  117. 555 D 63,112,192,16,1
  118. 560 D 63,128,192,15,1
  119. 565 D 63,143,128,16,1
  120. 570 D 63,160,128,15,1
  121. 575 D 192,144,30,31,1
  122. 580 D 224,144,31,31,1
  123. 585 D 158,128,158,142,1
  124. 590 D 160,142,170,128,1
  125. 595 rem     ----- kreis -----
  126. 600 DK 159,100,321,39,1,100,100,1
  127. 605 DK 159,100,75,105,1,100,100,1
  128. 610 DK 159,100,255,285,1,100,100,1
  129. 615 DK 159,100,141,219,1,100,100,1
  130. 620 rem farben einsetzen
  131. 625 DV 1,0,0:DU 65,25,1
  132. 630 DV 7,0,0:DU 90,25,1
  133. 635 DV 3,0,0:DU 113,25,1
  134. 640 DV 5,0,0:DU 137,25,1
  135. 645 DV 4,0,0:DU 161,25,1
  136. 650 DV 2,0,0:DU 185,25,1
  137. 655 DV 6,0,0:DU 209,25,1
  138. 660 DV 0,0,0:DU 233,25,1:DU 90,90,1
  139. 665 DV 11,0,0:DU 105,65,1
  140. 670 DV 12,0,0:DU145,65,1:DU 193,145,1:DU225,145,1
  141. 675 DV 15,0,0:DU 185,65,1
  142. 680 DV 2,0,0:DU 64,144,1
  143. 685 DV 6,0,0:DU 64,161,1
  144. 690 DV 1,0,0:DU 225,65,1:DU 66,97,1:DU 65,129,1:DU170,129,1
  145. 695 rem Dburst
  146. 700 a=86 :b=125:c=8:d=4:gosub 160
  147. 705 a=125:b=160:c=6:d=3:gosub 160
  148. 710 a=160:b=195:c=4:d=2:gosub 160
  149. 715 a=196:b=230:c=2:d=0:gosub 160
  150. 720 DO 105,102,"64'er [212]estbild",1,1,8
  151. 725 goto 230
  152.